Komputer for Alle 2002 #10/K-CD-10-2002.ISO/Anokee Illuminator/anokeeilluminator.exe/%MAINDIR%/Quicker.exe/0/RCDATA/TFRMVIEWER/TFRMVIEWER.txt

Text File | 2002-03-18 | 9.3 KB | 395 lines

object frmViewer: TfrmViewer
  Left = 281
  Top = 222
  ActiveControl = ltPreview
  BorderIcons = [biSystemMenu, biMaximize]
  BorderStyle = bsNone
  Caption = 'Anokee Quickview'
  ClientHeight = 182
  ClientWidth = 542
  Color = clBlack
  Constraints.MinHeight = 60
  Constraints.MinWidth = 550
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Verdana'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object imgAnimatedPreview: TImage
    Left = 0
    Top = 57
    Width = 542
    Height = 125
    Align = alClient
  end
  object ltPreview: TLEADImage
    Left = 0
    Top = 57
    Width = 542
    Height = 125
    Align = alClient
    AutoScroll = False
    BorderStyle = bsSingle
    Ctl3D = False
    BackColor = clBlack
    DrawMode = pmCopy
    EnableMethodErrors = False
    FrameOuterShadowColor = clBlack
    PaintWhileLoad = True
    ParentCtl3D = False
    PanWinPaintScaling = psNormal
    PanWinTitle = 'Pan Window'
    PatternStyle = epsDiagCross
    PopupMenu = pmAction
    TabOrder = 0
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    TransitionStyle = etsPattern
    OnDblClick = ltPreviewDblClick
    OnMouseDown = ltPreviewMouseDown
  end
  object pnBanner: TPanel
    Left = 0
    Top = 0
    Width = 542
    Height = 57
    Align = alTop
    Color = clSilver
    TabOrder = 1
    object imBanner: TImage
      Left = 1
      Top = 1
      Width = 500
      Height = 55
      Align = alLeft
      Constraints.MinWidth = 400
      Picture.Data = {<image001.jpg>}
      Transparent = True
      OnMouseDown = ltPreviewMouseDown
    end
    object lbSlogan: TLabel
      Left = 110
      Top = 40
      Width = 310
      Height = 13
      Cursor = crHandPoint
      Hint = 'Visit Anokee'#39's Homepage'
      AutoSize = False
      Caption = '.....'
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      OnClick = VisitAnokeesHomepageMnuClick
    end
    object sbClose: TSpeedButton
      Left = 468
      Top = 6
      Width = 68
      Height = 21
      Hint = 'Close Window [ESC]'
      Anchors = [akTop, akRight]
      Caption = 'C&lose'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      OnClick = sbCloseClick
    end
    object sbTasks: TSpeedButton
      Left = 468
      Top = 30
      Width = 68
      Height = 21
      Hint = 'Display menu of frequently used actions'
      Anchors = [akTop, akRight]
      Caption = '&Actions'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      Layout = blGlyphBottom
      Margin = 4
      ParentFont = False
      OnClick = sbTasksClick
    end
    object sbSave: TSpeedButton
      Left = 395
      Top = 6
      Width = 68
      Height = 21
      Hint = 'Save this image'
      Anchors = [akTop, akRight]
      Caption = '&Save'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      Visible = False
      OnClick = sbSaveClick
    end
    object sbUndo: TSpeedButton
      Left = 395
      Top = 30
      Width = 68
      Height = 21
      Hint = 'Discard changes'
      Anchors = [akTop, akRight]
      Caption = '&Undo'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      Layout = blGlyphBottom
      Margin = 4
      ParentFont = False
      Visible = False
      OnClick = sbUndoClick
    end
  end
  object pmAction: TPopupMenu
    OnPopup = pmActionPopup
    Left = 272
    object NextThumbnailMnu: TMenuItem
      Tag = 1
      Caption = 'Next Image'
      OnClick = PreviousThumbnailMnuClick
    end
    object PreviousThumbnailMnu: TMenuItem
      Tag = 2
      Caption = 'Previous Image'
      OnClick = PreviousThumbnailMnuClick
    end
    object SlideshowMnu: TMenuItem
      Caption = 'Slideshow...'
      OnClick = SlideshowMnuClick
    end
    object EditMnu: TMenuItem
      Caption = 'Edit'
      object ResizeMnu: TMenuItem
        Tag = 26
        Caption = '&Resize...'
        OnClick = BrightnessMnuClick
      end
      object ResampleMnu: TMenuItem
        Tag = 27
        Caption = 'Re&sample...'
        OnClick = BrightnessMnuClick
      end
      object RotateMnu: TMenuItem
        Caption = 'Rotate 90 Degrees'
        OnClick = RotateMnuClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object BrightnessMnu: TMenuItem
        Tag = 1
        Caption = '&Brightness...'
        OnClick = BrightnessMnuClick
      end
      object ContrastMnu: TMenuItem
        Tag = 2
        Caption = '&Contrast...'
        OnClick = BrightnessMnuClick
      end
      object HueMnu: TMenuItem
        Tag = 3
        Caption = '&Hue...'
        OnClick = BrightnessMnuClick
      end
      object SaturationMnu: TMenuItem
        Tag = 4
        Caption = '&Saturation...'
        OnClick = BrightnessMnuClick
      end
      object GrayscaleMnu: TMenuItem
        Tag = 5
        Caption = '&Grayscale'
        OnClick = BrightnessMnuClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object SharpenMnu: TMenuItem
        Tag = 20
        Caption = '&Sharpen...'
        OnClick = BrightnessMnuClick
      end
      object BlurMnu: TMenuItem
        Tag = 21
        Caption = '&Blur...'
        OnClick = BrightnessMnuClick
      end
      object EmbossMnu: TMenuItem
        Tag = 22
        Caption = '&Emboss...'
        OnClick = BrightnessMnuClick
      end
      object GradientMnu: TMenuItem
        Tag = 23
        Caption = '&Gradient...'
        OnClick = BrightnessMnuClick
      end
      object MosaicMnu: TMenuItem
        Tag = 24
        Caption = '&Mosaic...'
        OnClick = BrightnessMnuClick
      end
      object OilifyMnu: TMenuItem
        Tag = 25
        Caption = '&Oilify...'
        OnClick = BrightnessMnuClick
      end
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object SendToAnokee1: TMenuItem
      Caption = 'Send To Anokee...'
      Visible = False
      OnClick = SendToAnokee1Click
    end
    object OpeninViewer1: TMenuItem
      Caption = 'Open in Illuminator...'
      Visible = False
      OnClick = OpeninViewer1Click
    end
    object Sendviaemail1: TMenuItem
      Caption = 'Send via email...'
      Enabled = False
      ShortCut = 115
      Visible = False
      OnClick = Sendviaemail1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object CopyImage1: TMenuItem
      Caption = 'Copy Image to Clipboard'
      ShortCut = 16451
      OnClick = CopyImage1Click
    end
    object SaveImagetoMnu: TMenuItem
      Caption = 'Copy Image to location...'
      ShortCut = 16467
      OnClick = SaveImagetoMnuClick
    end
    object SaveAs1: TMenuItem
      Caption = 'Save As...'
      OnClick = SaveAs1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object FullscreenModeMnu: TMenuItem
      Caption = 'Fullscreen Mode'
      ShortCut = 16454
      OnClick = FullscreenModeMnuClick
    end
    object FittoscreenMnu: TMenuItem
      Caption = 'Image Must Fit to Screen'
      Checked = True
      OnClick = FittoscreenMnuClick
    end
    object StayonTopMnu: TMenuItem
      Caption = 'Stay on Top'
      Checked = True
      OnClick = StayonTopMnuClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object VisitAnokeesHomepageMnu: TMenuItem
      Caption = 'Visit Anokee'#39's Homepage!'
      OnClick = VisitAnokeesHomepageMnuClick
    end
    object CloseMnu: TMenuItem
      Caption = 'Close'
      OnClick = CloseMnuClick
    end
  end
  object Timer: TTimer
    Enabled = False
    Interval = 250
    OnTimer = TimerTimer
    Left = 240
  end
  object IvTranslator: TIvTranslator
    DictionaryName = 'Dictionary2'
    Left = 312
    TargetsData = (
      1
      2
      (
        ''
        'Hint'
        0)
      (
        ''
        'Caption'
        0))
  end
  object IvBinaryDictionary: TIvBinaryDictionary
    DictionaryName = 'Dictionary2'
    Left = 344
    DictionaryCode = 3
  end
  object Slideshow: TTimer
    Enabled = False
    OnTimer = SlideshowTimer
    Left = 312
    Top = 32
  end
  object LeadDialog1: TLeadDialog
    Change = 0
    DlgFont.Charset = DEFAULT_CHARSET
    DlgFont.Color = clWindowText
    DlgFont.Height = -11
    DlgFont.Name = 'MS Sans Serif'
    DlgFont.Style = []
    Effect = 1000
    ShapeBorderStyle = sbrDot
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    Left = 344
    Top = 32
  end
end